###################################################################
### Table 6. Reliability of Latent Variable Construction, China ###
###################################################################

load("/Users/Yannan/Desktop/data_china.RData")

library(psych)

summary(alpha(data_china[, c("child_money_support", "child_reg_money_support", "child_inkind_support", "child_reg_inkind_support", "see_child_freq", "contact_child_freq")]))

summary(alpha(data_china[, c("betrothal_gift", "betrothal_house", "college_support")]))

summary(alpha(data_china[, c("diff_run", "diff_sit", "diff_climb", "diff_stoop", "diff_extend", "diff_lift", "diff_pick", "diff_dress", "diff_bath", "diff_eat", "diff_bed", "diff_toilet")]))

summary(alpha(data_china[, c("living_std_relative", "living_std_school", "living_std_colleague", "living_std_neighbor", "living_std_county")]))